﻿Imports System.Data.SqlClient
Public Class DF02_VA

    Inherits Conexion
    Dim cmd As New SqlCommand
    Public Function guardar(ByVal dts As Entidades.EF02Vehiculos) As Boolean
        Try
            conectado()
            cmd = New SqlCommand("sp_guardar_F02VA")
            cmd.CommandType = CommandType.StoredProcedure
            cmd.Connection = cnn
            cmd.Parameters.AddWithValue("@numform", dts.numformu)
            cmd.Parameters.AddWithValue("@dominio", dts.domini)
            cmd.Parameters.AddWithValue("@X1", dts.xuno)
            cmd.Parameters.AddWithValue("@X2", dts.xdos)
            cmd.Parameters.AddWithValue("@X3", dts.xtres)
            cmd.Parameters.AddWithValue("@X4", dts.xcuatro)
            cmd.Parameters.AddWithValue("@X5", dts.xcinco)
            cmd.Parameters.AddWithValue("@X6", dts.xseis)
            cmd.Parameters.AddWithValue("@X7", dts.xsiete)
            cmd.Parameters.AddWithValue("@X8", dts.xocho)
            cmd.Parameters.AddWithValue("@X9", dts.xnueve)
            cmd.Parameters.AddWithValue("@X10", dts.xdiez)
            cmd.Parameters.AddWithValue("@X11", dts.xonce)
            cmd.Parameters.AddWithValue("@X12", dts.xdoce)
            cmd.Parameters.AddWithValue("@X13", dts.xtrece)
            cmd.Parameters.AddWithValue("@X14", dts.xcatorce)
            cmd.Parameters.AddWithValue("@X15", dts.xquince)
            cmd.Parameters.AddWithValue("@X16", dts.xdieciseis)
            cmd.Parameters.AddWithValue("@X17", dts.xdiecisiete)
            cmd.Parameters.AddWithValue("@X18", dts.xdieciocho)
            cmd.Parameters.AddWithValue("@X19", dts.xdiecinueve)
            cmd.Parameters.AddWithValue("@X20", dts.xveinte)
            cmd.Parameters.AddWithValue("@declaraciones", dts.declaracion)
            cmd.Parameters.AddWithValue("@apenomsolicitante", dts.apenomsolicitant)
            cmd.Parameters.AddWithValue("@apenomapoderado", dts.apenomapoderad)
            cmd.Parameters.AddWithValue("@dni", dts.dnii)
            cmd.Parameters.AddWithValue("@le", dts.lee)
            cmd.Parameters.AddWithValue("@lc", dts.lcc)
            cmd.Parameters.AddWithValue("@dniextr", dts.dniext)
            cmd.Parameters.AddWithValue("@clextr", dts.clext)
            cmd.Parameters.AddWithValue("@pasap", dts.pasapo)
            cmd.Parameters.AddWithValue("@numdoc", dts.numdocc)
            cmd.Parameters.AddWithValue("@pais", dts.paiss)
            cmd.Parameters.AddWithValue("@lugarfecha", dts.lugarfech)
            cmd.Parameters.AddWithValue("@chapa", dts.chapaa)
            cmd.Parameters.AddWithValue("@marca", dts.marcaa)
            cmd.Parameters.AddWithValue("@tipo", dts.tipoo)
            cmd.Parameters.AddWithValue("@modelo", dts.model)
            cmd.Parameters.AddWithValue("@marcamotor", dts.marcamoto)
            cmd.Parameters.AddWithValue("@nummotor", dts.numotor)
            cmd.Parameters.AddWithValue("@marcachasis", dts.marcachasi)
            cmd.Parameters.AddWithValue("@numchasis", dts.numchasi)
            If cmd.ExecuteNonQuery Then
                Return True
            Else
                Return False
            End If

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        desconectado()
    End Function

    Public Function modificar(ByVal dts As Entidades.EF02Vehiculos) As Boolean
        Try
            conectado()
            cmd = New SqlCommand("sp_modificar_F02VA")
            cmd.CommandType = CommandType.StoredProcedure
            cmd.Connection = cnn
            cmd.Parameters.AddWithValue("@numform", dts.numformu)
            cmd.Parameters.AddWithValue("@dominio", dts.domini)
            cmd.Parameters.AddWithValue("@X1", dts.xuno)
            cmd.Parameters.AddWithValue("@X2", dts.xdos)
            cmd.Parameters.AddWithValue("@X3", dts.xtres)
            cmd.Parameters.AddWithValue("@X4", dts.xcuatro)
            cmd.Parameters.AddWithValue("@X5", dts.xcinco)
            cmd.Parameters.AddWithValue("@X6", dts.xseis)
            cmd.Parameters.AddWithValue("@X7", dts.xsiete)
            cmd.Parameters.AddWithValue("@X8", dts.xocho)
            cmd.Parameters.AddWithValue("@X9", dts.xnueve)
            cmd.Parameters.AddWithValue("@X10", dts.xdiez)
            cmd.Parameters.AddWithValue("@X11", dts.xonce)
            cmd.Parameters.AddWithValue("@X12", dts.xdoce)
            cmd.Parameters.AddWithValue("@X13", dts.xtrece)
            cmd.Parameters.AddWithValue("@X14", dts.xcatorce)
            cmd.Parameters.AddWithValue("@X15", dts.xquince)
            cmd.Parameters.AddWithValue("@X16", dts.xdieciseis)
            cmd.Parameters.AddWithValue("@X17", dts.xdiecisiete)
            cmd.Parameters.AddWithValue("@X18", dts.xdieciocho)
            cmd.Parameters.AddWithValue("@X19", dts.xdiecinueve)
            cmd.Parameters.AddWithValue("@X20", dts.xveinte)
            cmd.Parameters.AddWithValue("@declaraciones", dts.declaracion)
            cmd.Parameters.AddWithValue("@apenomsolicitante", dts.apenomsolicitant)
            cmd.Parameters.AddWithValue("@apenomapoderado", dts.apenomapoderad)
            cmd.Parameters.AddWithValue("@dni", dts.dnii)
            cmd.Parameters.AddWithValue("@le", dts.lee)
            cmd.Parameters.AddWithValue("@lc", dts.lcc)
            cmd.Parameters.AddWithValue("@dniextr", dts.dniext)
            cmd.Parameters.AddWithValue("@clextr", dts.clext)
            cmd.Parameters.AddWithValue("@pasap", dts.pasapo)
            cmd.Parameters.AddWithValue("@numdoc", dts.numdocc)
            cmd.Parameters.AddWithValue("@pais", dts.paiss)
            cmd.Parameters.AddWithValue("@lugarfecha", dts.lugarfech)
            cmd.Parameters.AddWithValue("@chapa", dts.chapaa)
            cmd.Parameters.AddWithValue("@marca", dts.marcaa)
            cmd.Parameters.AddWithValue("@tipo", dts.tipoo)
            cmd.Parameters.AddWithValue("@modelo", dts.model)
            cmd.Parameters.AddWithValue("@marcamotor", dts.marcamoto)
            cmd.Parameters.AddWithValue("@nummotor", dts.numotor)
            cmd.Parameters.AddWithValue("@marcachasis", dts.marcachasi)
            cmd.Parameters.AddWithValue("@numchasis", dts.numchasi)
            If cmd.ExecuteNonQuery Then
                Return True
            Else
                Return False
            End If

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        desconectado()
    End Function

End Class
